home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / PKEY11_1.ARJ / AN.LSP < prev    next >
Text File  |  1992-03-14  |  641b  |  19 lines

  1. ;An.lsp (put numbers in a column)
  2. ;
  3. ;                     ********Patrick J. McKee, author********
  4. ;                       ****Copyright 1992, Power Key tm****
  5. ;
  6. (setq oer  *error*  *error*  err2)
  7. (Setq A (Getint "\nStarting Number: "))
  8. (Setq B (Getint "\nEnding Number: "))
  9. (Setq P1 (Getpoint "Starting Point: "))
  10. (Setq C (Getdist P1 "\nDistance Between Numbers: "))
  11. (Setq A1 (Getangle P1 "\nAngle To Run Numbers: "))
  12. (If (> A B)(Setq E - 1)(Setq E 1))
  13. (Repeat (+ 1 (Abs (- A B)))
  14. (Setq F (Itoa A))
  15. (Command "Text" P1 0 F)
  16. (Setq A (+ A E))
  17. (Setq P1 (Polar P1 A1 C)))
  18. (princ)(setq a nil b nil p1 nil c nil a1 nil f nil ))
  19.